home *** CD-ROM | disk | FTP | other *** search
/ Aminet 19 / Aminet 19 (1997)(GTI - Schatztruhe)[!][Jun 1997].iso / Aminet / dev / amos / KyzerAMOScode.lha / BBC.AMOS / BBC.amosSourceCode
Encoding:
AMOS Source Code  |  1992-09-03  |  517 b   |  17 lines
  1. A$="(11,-1,12)(11,1,12)" : Set Rainbow 0,1,265,"",A$,A$ : Rainbow 0,0,36,265
  2. '
  3. Screen Open 0,354,256,2,0 : Set Tempras $FFFF : Draw 0,128 To 335,128
  4. Set Pattern 2 : X=128 : Y=128 : Palette 0,0 : Hide : Double Buffer 
  5. Autoback 0 : Fade 1,$FFF
  6. '
  7. Dim S(179) : Degree : For A=0 To 179 : S(A)=Sin(A*3)*Sin(A*4)*128 : Next 
  8. '
  9. Do 
  10.    Wait Vbl 
  11.    Screen Copy Physic(0),16,0,352,512 To Logic(0),0,0
  12.    Add A,1,0 To 179
  13.    S=X : X=128+S(A)
  14.    T=Y : Y=128+S(A)/2
  15.    Polygon 320,S To 320,T To 335,Y To 335,X
  16.    Screen Swap 
  17. Loop